home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
rettig.arc
/
TRSOURCE.EXE
/
TR_ARRTP.PRG
< prev
next >
Wrap
Text File
|
1990-10-22
|
648b
|
25 lines
*********
* ATYPE
* by Tom Rettig
*
* Placed in the public domain by Tom Rettig Associates, 10/22/1990.
*
* Syntax: atype( <expA> )
* Return:
* "A" if array name only is passed (Winter '85 update and later)
* "B" if block type element (5.0 and later)
* "C" if character type element
* "D" if date type element
* "L" if logical type element
* "N" if numeric type element
* "O" if object type element (5.0 and later)
* "U" if uninitialized element (NIL, local, static in 5.0 and later)
*
FUNCTION ATYPE
PARAMETERS tr_a
RETURN TYPE('tr_a')
* eofunc atype